home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tools / prtfolio / port_2 / graph / showpic.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-09-22  |  783 b   |  44 lines
  1. program ShowPic;
  2.  
  3. uses
  4.   dos,pfcrt,pfgraph;
  5.  
  6. var
  7.   picnam : string;
  8.   ch     : char;
  9.  
  10. function GetDateiName : string;
  11. var
  12.   datnam : string;
  13.   dat    : file;
  14.   iof    : boolean;
  15. begin
  16.   repeat
  17.     clrscr;
  18.     gotoxy(1,1);
  19.     writeln('Dateiname bitte (0 für Ende) :');
  20.     readln(datnam);
  21.     if ((datnam= '0') or (datnam= '')) then
  22.       halt;
  23.     if pos('.',datnam)= 0 then
  24.       datnam:= concat(datnam,'.APF');
  25.     iof:= false;
  26.     assign(dat,datnam);
  27.     {$I-} reset(dat) {$i+};
  28.     if ioresult<> 0 then
  29.       iof:= true;
  30.     if not iof then close(dat);
  31.   until not iof;
  32.   GetDateiName:= datnam;
  33. end;
  34.  
  35. begin
  36.   repeat
  37.     picnam:= GetDateiName;
  38.     initgraph;
  39.     loadsdat(picnam);
  40.     ch:= readkey;
  41.     closegraph;
  42.   until false;
  43. end.
  44. ə